00010	BEGIN "ZERO"
00020	
00030	DEFINE ⊂="COMMENT";
00040	REQUIRE "MACROS[1,THO]" SOURCE_FILE;
00050	REQUIRE "COMSUB.HDR[1,THO]" SOURCE_FILE;
00060	  REQUIRE "BLOCKS.HDR[SYS,THO]" SOURCE_FILE;
00070	INTERNAL INTEGER INTOT,M,N,P,INFLAG,HINT,PONY;
00080	INTEGER I,J,J1,K,L,Q,PHPNT,PH2PNT,HPOINT,IMAX,LMID,LMAX,CHAN1,CHAN2,CHAN3,CHAN4,EOF;
00090	INTERNAL INTEGER ARRAY DATBUF[0:1024];
00100	STRING READ1,READ2,READ3,READ4,READ5;
00110	INTERNAL INTEGER I1L,I1H,I2L,I2H,I3L,I3H,  INL,INH,NZRNG,  FP1L,FP1H,FP2L,FP2H,
00120	            ILPB,ILPC,  IHPB,IHPC ;
00130	INTERNAL INTEGER NF; ⊂ *** USED IN PREPARE;
00140	LABEL LABEL1,START,O1;
00150	
00160	DEFINE TB="'11",STRIN="STRINGIN";
00210	CHAN1←1;  CHAN2←2; CHAN3←3; CHAN4←4;
00220	       TABIN(INTOT);  ⊂ INPUT TABLES;
00230	START:	
00240	IF (STRIN("DO YOU WANT INPUT TABLES RESET TO ZER0 (YorCR) = "))="Y" THEN 
00250	    FOR P←0 STEP 1 UNTIL INTOT-1 DO BEGIN
00260	    INCNT[P]←0;
00270	    I←P*74+10;
00290	    FOR J←I STEP 1 UNTIL I+63 DO TABLES[J]←0; END;
00300	
00310	IF STRIN("Should tables(excluding INPUT) be zeroed (Y or N) = ")="Y" THEN
00320	  FOR I←10+INTOT*74 STEP 74 UNTIL TABSIZ-64 DO
00330	    FOR J←I STEP 1 UNTIL I+63 DO TABLES[J]←0;
00340	
00350	TABOUT;
00360	END "ZERO";